home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Previews / ArtEffect2.0_Demo / rexx / requester.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-04-24  |  1.0 KB  |  49 lines
  1. /*
  2.     RequesterTest.rexx
  3.  
  4.     Example usage of the Requester functions of ArtEffect's ARexx port.
  5.  
  6.     Refer to ArtEffect:Rexx/Rexx.doc for a complete command description
  7. */
  8.  
  9. address "ArtEffect"
  10.  
  11. options results
  12.  
  13. options failat 11
  14.  
  15. /* Info */
  16. requestnotify "«Requester.rexx» gives you an overview|over the requester functions|of ArtEffect's ARexx port."
  17.  
  18. /* Stringrequester */
  19. requeststring title '"string requested"' def '"test string"' prompt "Enter the string to be drawn over the current layer:"
  20. if rc=0 then
  21.     say result
  22. else
  23.     say "Dialog abgebrochen."
  24.  
  25. /* Filerequester */
  26. requestfile  PATH "ram:" title '"load test picture"'
  27. if rc=0 then
  28.     say result
  29. else
  30.     say "Dialog abgebrochen."
  31.  
  32. requestfile  PATH "ram:" title '"save test picture"' SAVE
  33. if rc=0 then
  34.     say result
  35. else
  36.     say "Dialog abgebrochen."
  37.  
  38. /* Zahlenwert */
  39. requestnumber min 0 max 100 def 75 unit "%" prompt "drawing strength"
  40. if rc=0 then
  41.     say result
  42. else
  43.     say "Dialog abgebrochen."
  44.  
  45. /* Multiple Choice */
  46. requestresponse prompt '"did you like it?"' "Yes|Sure"
  47. say "Answer no." result
  48.  
  49.